mult xs =
	letcc k in
		let
			mult’ [] = 1
			mult’ (0:ys) = continue 0 k
			mult’ (y:ys) = y * (mult’ ys)
		in
			mult’ xs
		end
	end
